#使用while语句计算num小于40的个数。
num=sample(1:50,10,replace = TRUE)
ans <- 0# 对结果赋初值
i <- 1
x<- num
n<-length(x)
while (i<=n) {
  if(x[i] < 40)
    ans <- ans + 1       # 将每次的值累加
i <- i + 1
 
}
print(ans)
      
    
   

